home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / net / AmiComSysMUI.lha / AmiComSys / rexx / Finger.rexx < prev    next >
OS/2 REXX Batch file  |  1998-04-29  |  697b  |  25 lines
  1. /* ARexx script to finger someone */
  2. /* For use with AmiComSys 1.12+ */
  3. /* Finger must be in the AMITCP:bin directory */
  4. /* or MiamiFinger must be in the MIAMI: directory */ 
  5. ADDRESS AMICOMSYS;
  6. OPTIONS RESULTS;
  7.  
  8. GET stem info. CLIENTLIST;
  9. /* "stem info." inserts the results to the structure 'info.'. */
  10. /* "var s" would have inserted all the results to one string in s. */
  11. /* "CLIENTLIST": We want to read the client list information. */
  12. s=info.selected;
  13.  
  14. if show('P','MIAMI.1') then
  15. do
  16.     ADDRESS COMMAND "MIAMI:MiamiFinger @"info.hostnames.s;
  17.     Exit
  18. end
  19.  
  20. ADDRESS COMMAND "AmiTCP:bin/Finger @"info.hostnames.s;
  21. /* To start another application just change Finger to any other
  22. program name */
  23.  
  24. EXIT;
  25.